"
Groupbox without title with a vertical layout. Appears in a lighter colour than the owner's pane colour.
"
Class {
	#name : 'PlainGroupboxMorph',
	#superclass : 'PanelMorph',
	#category : 'Morphic-Base-Widgets',
	#package : 'Morphic-Base',
	#tag : 'Widgets'
}

{ #category : 'accessing' }
PlainGroupboxMorph >> adoptPaneColor: paneColor [
	"Change our color too."

	super adoptPaneColor: (self theme subgroupColorFrom: paneColor).
	self borderStyle: (self theme plainGroupPanelBorderStyleFor: self)
]

{ #category : 'initialization' }
PlainGroupboxMorph >> initialize [
	"Initialize the receiver."

	super initialize.
	self
		borderStyle: (self theme plainGroupPanelBorderStyleFor: self);
		changeTableLayout;
		layoutInset: 4;
		cellInset: 8;
		vResizing: #spaceFill;
		hResizing: #spaceFill
]

{ #category : 'accessing' }
PlainGroupboxMorph >> paneColorOrNil [
	"Answer the window's pane color or nil otherwise."

	^super paneColorOrNil ifNotNil: [:c | self theme subgroupColorFrom: c]
]
